home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pct3jr1.mrg < prev    next >
Encoding:
Text File  |  1985-06-03  |  2.9 KB  |  66 lines
  1. 101 'PCT3JR.MRG VERSION 1.1 03/14/84 COPYRIGHT (C) 1984 MICHAEL EORGOFF 
  2. 110 CLOSE:DEFINT A-Z:OPTION BASE 1:ON ERROR GOTO 9000:GOSUB 64010 
  3. 605 IF LOF(1)<128 THEN GOSUB 64040 
  4. 635 IF RC THEN GOSUB 64240 
  5. 720 IF PSE THEN GOSUB 64150 
  6. 2705 GOSUB 64440:IF RC THEN F2NAME$=RCV$:GOSUB 64480 
  7. 2710 GOSUB 64150:RETURN 
  8. 3450 GOSUB 2715:GOSUB 2800:GOSUB 64150:GOTO 515 
  9. 3595 IF EX=19 THEN GOSUB 64440:F2NAME$=FIL$:GOSUB 64480:ELSE CLOSE #3:OPEN FIL$ FOR INPUT AS #3 
  10. 3810 SOUND 440,2:GOSUB 64440:F2NAME$=DUMP$:GOSUB 64480:MSG$=" Appending to "+DUMP$+" at "+TIME$:GOSUB 2600 
  11. 3820 SOUND 660,2:BEEP:GOSUB 2705:GOSUB 2800:GOSUB 64150:LOCATE ROW,COL:GOTO 515 
  12. 5415 DATA"Strip #1",0,Replace #1,0,"Strip #2",0,Replace #2,0,"Strip #3",0,Replace #3,0,Pacing p=,,Logged drive,"A:",Margin width,70 
  13. 5420 DATA Screendump file,"A:SCRNDUMP.PCT",Redial delay,20,Connect prompt,CONNECT 
  14. 64000 ' 
  15. 64010 DIM F2BUF$(5):F2BIU=5:GOSUB 64020:DPSE=0:COFF=0 
  16. 64020 FOR F2BI= 1 TO F2BIU:F2BUF$(F2BI)="":NEXT:F2BIU=1:RETURN 
  17. 64030 ' 
  18. 64040 IF NOT PSE THEN PRINT #1,XF$;:PSE=-1 
  19. 64050 RETURN 
  20. 64060 ' 
  21. 64070 DPSE=-1:GOSUB 64040 'SET DISK PAUSE, XOFF 
  22. 64080 ' 
  23. 64090 'WAIT UNTIL NO MORE CHARS COME IN COM PORT 
  24. 64100 WHILE NOT COFF:GOSUB 64130:WEND:RETURN 
  25. 64110 ' 
  26. 64120 'CHECK IF MORE CHARS ARE COMING IN COM PORT 
  27. 64130 COMFRE=LOF(1):SOUND 32767,5:SOUND 32767,1:IF COMFRE<>LOF(1) THEN COFF=0:RETURN ELSE COFF=-1:RETURN 
  28. 64140 ' 
  29. 64150 IF NOT PSE THEN RETURN 
  30. 64160 IF NOT EOF(1) THEN RETURN ELSE IF DPSE THEN GOTO 64280 
  31. 64170 PSE=0:COFF=0:PRINT #1,XN$;:RETURN 
  32. 64180 IF NOT PSE THEN RETURN ELSE GOSUB 64170:RETURN 
  33. 64190 ' 
  34. 64200 'ROUTINE TO UP BUFFER IN USE(F2BIU) AND DECIDE IF TIME TO XOFF 
  35. 64210 F2BIU=F2BIU+1:IF F2BIU<3 THEN RETURN ELSE GOSUB 64040:DPSE=-1:RETURN 
  36. 64220 ' 
  37. 64230 'ROUTINE TO PACK UP BUFFERS FROM A$ FOR WRITING TO FILE #2 
  38. 64240 F2BL=(255-LEN(F2BUF$(F2BIU))):IF F2BL=0 THEN GOSUB 64210:F2BL=255 
  39. 64250 IF F2BL>=LEN(A$) THEN F2BUF$(F2BIU)=F2BUF$(F2BIU)+A$:GOTO 64280 
  40. 64260 F2BUF$(F2BIU)=F2BUF$(F2BIU)+LEFT$(A$,F2BL):GOSUB 64210:F2BUF$(F2BIU)=MID$(A$,F2BL+1) 
  41. 64270 'CHECK IF NEED TO WRITE TO DISK 
  42. 64280 IF NOT DPSE THEN RETURN 
  43. 64290 ' 
  44. 64300 'CHECK IF LAST BUFFER HAS BEEN USED 
  45. 64310 IF F2BIU>=5 THEN GOSUB 64100:GOSUB 64400:IF EOF(1) THEN GOTO 64360 ELSE RETURN 
  46. 64320 ' 
  47. 64330 IF NOT EOF(1) THEN RETURN 
  48. 64340 GOSUB 64130:IF NOT COFF THEN RETURN ELSE IF LOC(1) THEN RETURN 
  49. 64350 GOSUB 64400 
  50. 64360 DPSE=0:GOSUB 64150 
  51. 64370 RETURN 
  52. 64380 ' 
  53. 64390 'WRITE F2BUF$ AND RESET 
  54. 64400 FOR F2BI=1 TO F2BIU:PRINT #2,F2BUF$(F2BI);:NEXT:GOSUB 64020:RETURN 
  55. 64410 ' 
  56. 64420 'CLOSE #2 
  57. 64430 IF (0=LEN(F2BUF$(1))) THEN RETURN ELSE GOSUB 64400:RETURN 
  58. 64440 GOSUB 64070:GOSUB 64430 
  59. 64450 CLOSE #2:F2NAME$="":DPSE=0:GOTO 64490 
  60. 64460 'OPEN FILE #2 
  61. 64470 OPEN F2NAME$ AS #2:GOTO 64490 
  62. 64480 OPEN F2NAME$ FOR APPEND AS #2:GOTO 64490 
  63. 64490 GOSUB 64020:RETURN
  64. 64500 'END
  65.